COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN	"TVTAKE"
C00004 ENDMK
C⊗;
BEGIN	"TVTAKE"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "TIMER[SYS,BGB]" SOURCE_FILE;
	INTERNAL INTEGER XSAMPLE,YLINE,WIDTH,BUFCNT,CAMNUM;
	EXTERNAL PROCEDURE TV;
	INTERNAL INTEGER ARRAY TVBUF[1:10368];

PROCEDURE TVTAKE(INTEGER X,Y,DX,DY);
BEGIN
	XSAMPLE		←	X - 144;
	YLINE		←	Y - 108;
	WIDTH		←	32;
	BUFCNT		←	3*DY*WIDTH;
BEGIN
	INTERNAL INTEGER ARRAY BUF0,BUF2,BUF4,BUF6[1:6912];
	TV;
END;
END;
	INTEGER X,Y,FLG;
	INTEGER ARRAY HEADER[0:9];
	STRING STR;
	X	←	172;
	Y	←	128;
	WHILE TRUE DO
BEGIN	"FOREVER"
DO BEGIN
	OUTSTR("	FILE = ");
	STR	←	INCHWL;
	IF LENGTH(STR)=1 ∧ "0"≤STR ∧ STR≤"3" THEN
	BEGIN CAMNUM ← ((STR LAND 3) LSH 9);STR←"";END;
	IF LENGTH(STR)=0 THEN
	OUTSTR(9&"CAMERA NUMBER IS NOW = "&CVS(CAMNUM LSH -9)&↓);
END	UNTIL LENGTH(STR)≥1 ∧ "A"≤STR ∧ STR≤"Z";
	INTIME;
	TVTAKE(X,Y,16,108);
	HEADER[2]	←	6;
	HEADER[5]	←	Y-108;
	HEADER[6]	←	Y+108-1;
	HEADER[7]	←	X-144;
	HEADER[8]	←	X+144-1;
	OPEN(2,"DSK",'10,0,3,0,0,0);
	ENTER(2,STR&".DAT",FLG);
	ARRYOUT(2,HEADER[0],10);
	ARRYOUT(2,TVBUF[1],10368);
	RELEASE(2);
	OUTIME;
END	"FOREVER";

END	"TVTAKE";